home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 116 / Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64 / rename disk (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  988b  |  24 lines
  1. 1 printchr$(14)chr$(8):poke53280,0:poke53281,0:print""
  2. 10 pn$="[196][201][211][203] [201][196] [195][200][193][206][199][197][210]":
  3. 20 print"[147] "+pn$+" ":print"[205]it diesem [208]rogramm koennen [196][201][211][203]-[206][193][205][197]"
  4. 30 print"und/oder [196][201][211][203]-[201][196] geaendert werden."
  5. 40 forl=1to13:print"[163][163][163]";:next:print:print:x$="0"
  6. 50 dv=val(x$)
  7. 60 dv$=x$:ifdvand254thenprint"[145][145][145][145][145][145]":goto40
  8. 70 print"[193]enderung von  [196][201][211][203]-[206][146][193][205][197]":printtab(10)"oder [196][201][211][203]-[201][146][196] ?";
  9. 80 print"     ([206][146]/[201][146])  ";:gosub220:ifx$<>"n"andx$<>"i"andx$<>"x"thenprint"[145][145][145][145]":goto70
  10. 85 printx$:ifx$="x"thenprint"[147]":end
  11. 90 printx$:open15,8,15:print#15,"i"+dv$:open1,8,3,"#":print#15,"u1:3"dv",18,0":ifx$="n"goto170
  12. 100 print#15,"b-p:3,162":get#1,a$,b$,c$,d$,e$:print"[196]erzeitiger [196][201][211][203]-[201][196] ist  "a$;
  13. 110 printb$;c$;d$;e$:input"[206]euer [196][201][211][203]-[201][196] (max. 5 [218]eichen) ";ni$
  14. 111 iflen(ni$)<>4theni$=left$(ni$+" ",5)
  15. 120 print#15,"b-p:3,162":print#1,ni$;:print#15,"u2:3"dv",18,0
  16. 130 i$[178]"i"[170][202]([196](dv),2):[152]15,i$
  17. 160 [138]
  18. 170 [152]15,"b-p:3,144":dn$[178]"":[129]l[178]1[164]16:[161]#1,a$:dn$[178]dn$[170]a$:[130]
  19. 180 [153]"str$erzeitiger str$right$(NULL)(NULL)-(NULL)atn(NULL)val ist:":[153]:[153]" "[170]dn$[170]" "
  20. 190 [153]"(NULL)euer str$right$(NULL)(NULL)-(NULL)atn(NULL)val ( maximal 16 (NULL)eichen! ) ":[133]nd$:[153]
  21. 200 nd$[178][200](nd$[170]"              ",16)
  22. 210 [152]15,"b-p:3,144":[152]1,nd$;:[152]15,"u2:3"dv",18,0":[137]130
  23. 220 [161]x$:[142]
  24.